home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / stats_10.lha / BBSstats.rexx next >
OS/2 REXX Batch file  |  1996-01-01  |  831b  |  53 lines
  1. /*
  2. Mailstats.rexx
  3. */
  4.  
  5.  
  6. Options results
  7. parse arg line
  8.  
  9. loc = 1
  10.  
  11. ExpandCC '%50:'line'|'
  12. Name = result
  13. ExpandCC '%56:'line'|'
  14. Address = result
  15.  
  16. If address = 'RESULT'|address = '' then address = 'Unknown' 
  17.  
  18. ExpandCC '%151:'line'|'
  19. baud = result
  20.  
  21. If Baud = '0' then Baud = 'Local'
  22.  
  23. If Baud = 'Local' & loc = 1 then exit
  24.  
  25. Open(stats,'doors:stats/stats.dat',R)
  26. do i=1 to 10
  27.    Value.i= readln(stats)
  28.    end
  29. close(stats)
  30.  
  31. do i = 10 to 2
  32.    j = i - 1
  33.    Value.i = value.j
  34.    end
  35.  
  36. Name= left(name, 19, " ")
  37. CT = time(civil)
  38. CT = left(ct, 12, " ")
  39. baud = left(baud, 12, " ")
  40. location = left(address, 24, " ")
  41.  
  42. entry = '³'name'BBS       'ct''baud''location'³'
  43.  
  44. Open(stats,'doors:stats/stats.dat',w)
  45. writeln(stats,entry)
  46. do i = 1 to 9
  47.    writeln(stats, value.i)
  48.    end
  49. close(stats)
  50.  
  51. exit
  52.  
  53.